QuickTime VR Showcase/QuickTime VR Showcase.iso/3rd Parties/Software/Apple/AMT 2.1 New Features Demo/SOURCES/oMore_Features_2_13.k

Text File | 1996-12-21 | 14.6 KB | 705 lines | [TEXT/MPS ]

object oMore_Features_2_13 is cDefaultContainer
with
    Binder is oBinder;
    Label is -1;
    Items is [
        oKeyboard_Volume__13_49,
        oMF_BCK2_PIC_13_11,
        oExit_Inverse_13_14,
        oClick_Sound__Up__13_15,
        oClick_Sound__down__13_16,
        oArrow_Right_Yellow_Highligh_13_17,
        oArrow_Left_Yellow_Highlight_13_18,
        oExit_Yellow_Highlight_13_19,
        oExplain_Yellow_Highlight_13_37,
        oMenu_Yellow_Highlight_13_21,
        oArrow_Left_Inverse_13_22,
        oArrow_Right_Inverse_13_23,
        oExplain_Inverse_13_24,
        oMenu_Inverse_13_25,
        oMF_MIAM_PIC_13_26,
        oMF_SOFL_RTF_13_28,
        oMF_SCDW_PIC_13_40,
        oMF_SCUP_PIC_13_39,
        oMF_SCMI_PIC_13_42,
        oMF_PRNT_PIC_13_38,
        oMF_HLP2_PIC_13_43
    ];
end;


object oKeyboard_Volume__13_49 is cKeyboardHandler
with
    Behavior is cDefaultBehavior
    has
        KeyDown(theTarget, theKey)
        use
            KeyMatch;

            do
                KeyMatch := theKey = '-';
                if KeyMatch then
                    theTarget.DoDefaultMethod := false;

                    oSoundVolume.StepIndexBy(-1);
                end;
                KeyMatch := theKey = '=';
                if KeyMatch then
                    theTarget.DoDefaultMethod := false;

                    oSoundVolume.StepIndexBy(1);
                end;
                KeyMatch := theKey = '+';
                if KeyMatch then
                    theTarget.DoDefaultMethod := false;

                    oSoundVolume.StepIndexBy(1);
                end;
            end;

    with
        Enabled is true; Shown is false;
        X is 30; Y is 24; Width is 0; Height is 0;
    end;
end;


object oMF_BCK2_PIC_13_11 is cPictureHandler
with
    Duration is -1;
    Supplier is oMF_BCK2_PIC;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is false; Shown is true;
        X is 0; Y is 0; Width is 640; Height is 480;
    end;
end;


object oExit_Inverse_13_14 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ETI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 528; Y is 439; Width is 112; Height is 42;
    end;
end;


object oClick_Sound__Up__13_15 is cSoundHandler
with
    Supplier is oS3_2clk_WAV;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is true; Shown is true;
        X is 247; Y is 128; Width is 32; Height is 24;
    end;
end;


object oClick_Sound__down__13_16 is cSoundHandler
with
    Supplier is oS3_clk_WAV;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is true; Shown is true;
        X is 304; Y is 228; Width is 32; Height is 24;
    end;
end;


object oArrow_Right_Yellow_Highligh_13_17 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ALYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oArrow_Right_Inverse_13_23.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oBinder.Refresh();
                oClick_Sound__down__13_16.Run(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oArrow_Right_Inverse_13_23.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__13_15.Run(true);
                oBinder.Goto(oMore_Features_3_17);
                oBinder.SetTransition(oWipeRight, 30);
            end;

    with
        Enabled is true; Shown is true;
        X is 473; Y is 426; Width is 55; Height is 54;
    end;
end;


object oArrow_Left_Yellow_Highlight_13_18 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ARYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oArrow_Left_Inverse_13_22.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oBinder.Refresh();
                oClick_Sound__down__13_16.Run(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oArrow_Left_Inverse_13_22.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__13_15.Run(true);
                oBinder.Goto(oMore_Features_1_12);
                oBinder.SetTransition(oWipeRight, 30);
            end;

    with
        Enabled is true; Shown is true;
        X is 377; Y is 426; Width is 60; Height is 54;
    end;
end;


object oExit_Yellow_Highlight_13_19 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ETYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oExit_Inverse_13_14.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oBinder.Refresh();
                oClick_Sound__down__13_16.Run(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oExit_Inverse_13_14.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__13_15.Run(true);
                oBinder.Quit();
            end;

    with
        Enabled is true; Shown is true;
        X is 528; Y is 426; Width is 111; Height is 54;
    end;
end;


object oExplain_Yellow_Highlight_13_37 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_EXYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oExplain_Inverse_13_24.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oBinder.Refresh();
                oClick_Sound__down__13_16.Run(true);
                oMF_HLP2_PIC_13_43.Show(not oMF_HLP2_PIC_13_43.IsShown());
                oMF_SOFL_RTF_13_28.Enable(not oMF_SOFL_RTF_13_28.IsEnabled());
                oMF_SCDW_PIC_13_40.Enable(not oMF_SCDW_PIC_13_40.IsEnabled());
                oMF_SCUP_PIC_13_39.Enable(not oMF_SCUP_PIC_13_39.IsEnabled());
                oMF_SCMI_PIC_13_42.Enable(not oMF_SCMI_PIC_13_42.IsEnabled());
                oMF_PRNT_PIC_13_38.Enable(not oMF_PRNT_PIC_13_38.IsEnabled());
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oExplain_Inverse_13_24.Show(false);
                oBinder.Refresh();
                oClick_Sound__Up__13_15.Run(true);
            end;

    with
        Enabled is true; Shown is true;
        X is 289; Y is 427; Width is 87; Height is 53;
    end;
end;


object oMenu_Yellow_Highlight_13_21 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_MNUYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oMenu_Inverse_13_25.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oBinder.Refresh();
                oClick_Sound__down__13_16.Run(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oMenu_Inverse_13_25.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__13_15.Run(true);
                oBinder.Goto(oMain_Menu_1);
                oBinder.SetTransition(oWipeRight, 30);
            end;

    with
        Enabled is true; Shown is true;
        X is 163; Y is 427; Width is 126; Height is 53;
    end;
end;


object oArrow_Left_Inverse_13_22 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ALI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 381; Y is 441; Width is 51; Height is 40;
    end;
end;


object oArrow_Right_Inverse_13_23 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ARI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 477; Y is 438; Width is 50; Height is 42;
    end;
end;


object oExplain_Inverse_13_24 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_EXI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 291; Y is 438; Width is 87; Height is 43;
    end;
end;


object oMenu_Inverse_13_25 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_MNUI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 167; Y is 438; Width is 123; Height is 43;
    end;
end;


object oMF_MIAM_PIC_13_26 is cPictureScrollerHandler
with
    Duration is -1;
    VScrollbar is false;
    HScrollbar is false;

    ScrollX is 0;
    ScrollY is 0;
    Supplier is oMF_MIAM_PIC;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is false; Shown is true;
        X is 302; Y is 4; Width is 336; Height is 312;
    end;
end;


object oMF_SOFL_RTF_13_28 is cTextScrollerHandler
with
    Red is 255; Green is 255; Blue is 255;
    Duration is -1;
    Transparent is true;
    Margin is 8;
    Supplier is oMF_SOFL_RTF;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is true; Shown is true;
        X is 176; Y is 317; Width is 346; Height is 101;
    end;
end;


object oMF_SCDW_PIC_13_40 is cPictureHandler
with
    Duration is -1;
    Supplier is oMF_SCDW_PIC;
    Behavior is cDefaultBehavior
    has
        MouseDown(theTarget, theX, theY)
            do
                oMF_MIAM_PIC_13_26.ScrollBy(0, -60);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

    with
        Enabled is true; Shown is false;
        X is 173; Y is 248; Width is 122; Height is 16;
    end;
end;


object oMF_SCUP_PIC_13_39 is cPictureHandler
with
    Duration is -1;
    Supplier is oMF_SCUP_PIC;
    Behavior is cDefaultBehavior
    has
        MouseDown(theTarget, theX, theY)
            do
                oMF_MIAM_PIC_13_26.ScrollBy(0, 60);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

    with
        Enabled is true; Shown is false;
        X is 192; Y is 265; Width is 104; Height is 16;
    end;
end;


object oMF_SCMI_PIC_13_42 is cPictureHandler
with
    Duration is -1;
    Supplier is oMF_SCMI_PIC;
    Behavior is cDefaultBehavior
    has
        MouseDown(theTarget, theX, theY)
            do
                oMF_MIAM_PIC_13_26.ScrollTo(0, -1024);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

    with
        Enabled is true; Shown is false;
        X is 174; Y is 281; Width is 108; Height is 12;
    end;
end;


object oMF_PRNT_PIC_13_38 is cPictureHandler
with
    Duration is -1;
    Supplier is oMF_PRNT_PIC;
    Behavior is cDefaultBehavior
    has
        MouseDown(theTarget, theX, theY)
            do
                oMF_SOFL_RTF_13_28.Print();
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

    with
        Enabled is true; Shown is false;
        X is 197; Y is 301; Width is 74; Height is 14;
    end;
end;


object oMF_HLP2_PIC_13_43 is cPictureHandler
with
    Duration is -1;
    Supplier is oMF_HLP2_PIC;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is false; Shown is false;
        X is 173; Y is 0; Width is 467; Height is 426;
    end;
end;